#!c:/perl/bin/perl.exe

#########################################################################################
######	TODO list  ######################################################################
#########################################################################################
#
#########################################################################################

use lib '../cgi-bin';
use WiganRL::DataObject::View;
use WiganRL::DataObject::News;
use WiganRL::DataObject::Page;
use WiganRL::DataObject::Thread;
use WiganRL::DataObject::UserContent;
use WiganRL::Search;
use WiganRL::User;
use Diva::DB;
use CGI;
use strict;

print "Content-type: text/html\n\n";

my $SITE_BASE_URL= 'http://localhost/wigan';
my $SITE_BASE_DIR= 'c:/wwcom/v2.0/html';

my $cgi= CGI->new();
my $dbh= Diva::DB->new();
$dbh->set( {
	DATABASE_NAME		=> 'wwcom',
	DATABASE_SERVER		=> 'localhost:3306',
	DATABASE_USERNAME	=> 'root',
	DATABASE_PASSWORD	=> 'root',
	DATABASE_TYPE		=> 'mysql',
	} );
$dbh->connect();
$dbh->debug(0);

WiganRL::DataObject->dbh($dbh);
WiganRL::DataObject->cgi($cgi);
WiganRL::DataObject->debug(0);
WiganRL::Search->dbh($dbh);
WiganRL::User->dbh($dbh);

print WiganRL::DataObject->debug();

my $page= WiganRL::DataObject::Page->new();
print $page->debug(1); 